function [R,C,sens]=celdas_skgigu1(wp,qp,g,wz,seteados)
%RECIBE:
%wp,qp,g,wz: Datos de la funcion
%Seteados: R1

    R=ones(2,1);
    C=ones(2,1);
    
    R(1)=seteados;
    R(2)=R(1);
    C(2)=1/(2*wp*qp*R(1));
    C(1)=1/(wp^2*R(1)^2*C(2));
    sens=ones(4,4);
    
    sens(:,1)= SenSallenLPGigu1W0(R(1),R(2),C(1),C(2));
    sens(:,2)= SenSallenLPGigu1Q(R(1),R(2),C(1),C(2));
    sens(:,3)= SenSallenLPGigu1G(R(1),R(2),C(1),C(2));
    sens(:,4)= [0,0,0,0];
end

function [senG]=SenSallenLPGigu1G(r1,r2,c1,c2)
  senG(1)=0;
  senG(2)=0;
  senG(3)=0;
  senG(4)=0;
end


function [senQ]=SenSallenLPGigu1Q(r1,r2,c1,c2)

senQ(1) = -r1*(c2*r1 + c2*r2)*(c2/((c2*r1 + c2*r2)^2*(1/(c1*c2*r1*r2))^(1/2)) - 1/(2*c1*c2*r1^2*r2*(c2*r1 + c2*r2)*(1/(c1*c2*r1*r2))^(3/2)))*(1/(c1*c2*r1*r2))^(1/2);
senQ(2) =-r2*(c2*r1 + c2*r2)*(c2/((c2*r1 + c2*r2)^2*(1/(c1*c2*r1*r2))^(1/2)) - 1/(2*c1*c2*r1*r2^2*(c2*r1 + c2*r2)*(1/(c1*c2*r1*r2))^(3/2)))*(1/(c1*c2*r1*r2))^(1/2);
senQ(3) =1/(2*c1*c2*r1*r2*(1/(c1*c2*r1*r2)));
senQ(4) =-c2*((r1 + r2)/((c2*r1 + c2*r2)^2*(1/(c1*c2*r1*r2))^(1/2)) - 1/(2*c1*c2^2*r1*r2*(c2*r1 + c2*r2)*(1/(c1*c2*r1*r2))^(3/2)))*(c2*r1 + c2*r2)*(1/(c1*c2*r1*r2))^(1/2);

end

function [senw0]=SenSallenLPGigu1W0(r1,r2,c1,c2)

senw0(1) = -1/(2*c1*c2*r1*r2*(1/(c1*c2*r1*r2))); %r1
senw0(2) = -1/(2*c1*c2*r1*r2*(1/(c1*c2*r1*r2))); %r2
senw0(3) = -1/(2*c1*c2*r1*r2*(1/(c1*c2*r1*r2))); %c1
senw0(4) = -1/(2*c1*c2*r1*r2*(1/(c1*c2*r1*r2))); %c2

end